home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / collie12.arc / COLLIE.REC < prev    next >
Text File  |  1986-06-14  |  5KB  |  101 lines
  1.   Users       = Record
  2.                   UserName    : String[37];               { Users name       }
  3.                   CallingFrom : String[30];               { location         }
  4.                   Password    : String[14];               { Password         }
  5.                   TimeDate    : String[17];               { Last time called }
  6.                   PhoneNumber : String[12];               { User phone number}
  7.                   Credit,                                 { Credit limit     }
  8.                   Pending,                                { Charges pending  }
  9.                   SecurityLevel,                          { Security level   }
  10.                   Uploads,                                { Number of ULoads }
  11.                   Downloads,                              { Number of DLoads }
  12.                   TotalUK,                                { Total K uploaded }
  13.                   TotalDK,                                { Total K downlded }
  14.                   TimesOn,                                { Number times on  }
  15.                   TimeLeft,                               { Time left today  }
  16.                   Last_Read,                              { Last message read}
  17.                   Last_M_Area,                            { Last message area}
  18.                   Last_F_Area: Integer;                   { Last file area   }
  19.                   Xpert: Byte;                            { Xpert toggle     }
  20.                   LockedOut,                              { allowed user?    }
  21.                   Deleted,                                { Mark for deletion}
  22.                   Universal      : Boolean;               { Universal toggle }
  23.                   Message_waiting: Byte;                  { message for user }
  24.                   Extra       : Array[1..20] of integer;  { Extra Space      }
  25.                 End;
  26.                           { note : extra[1] is used for scrollback toggle
  27.                             1 = true, 0 = false .. message_waiting is not
  28.                             implemented for 1.51 }
  29.  
  30.  
  31.  
  32.                                            { note that messages.bbs is a file }
  33.                                            { of string[128]                   }
  34.  
  35.   MessagePointer = Record              { structure for messages.ptr }
  36.                      Info             : Array[1..10] of String[30];
  37.                      Subject_         : String[60];
  38.                      Mdate            : String[17];
  39.                      Where,
  40.                      NumberofRecords,
  41.                      ConferenceNumber,
  42.                      ReplyTo, SeeAlso,
  43.                      Originating_Node,
  44.                      Originating_Net,
  45.                      Destination_Node,
  46.                      Destination_Net  : Integer;
  47.                      Private, Deleted : Boolean;
  48.                      Msg_Cost, Flags  : Byte;
  49.                    End;
  50.  
  51. {Flags byte:
  52. _________________________________
  53. I 1 I 2 I 3 I 4 I 5 I 6 I 7 I 8 I
  54. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  55. Bit 1 - Received         Bit 2 - Sent OK
  56. Bit 3 - kill/sent        Bit 4 - In transit
  57. Bit 5 - File attached }
  58.  
  59.  
  60.  
  61.  
  62.   NodeSysR       = Record                   { nodelist record for .sys file }
  63.                      Flag              : Byte;
  64.                      Cost, OutBaud,
  65.                      NetNumber,
  66.                      NodeNumber        : Integer;
  67.                      Title,
  68.                      PhoneNumber,
  69.                      Location          : String[30];
  70.                    End;
  71.  
  72.  
  73.  
  74.  
  75.   SchedulerR     = Record
  76.                      Schedule          : Char;
  77.                      StartTime         : String[5];
  78.                      LengthTime        : Integer;
  79.                      Flag              : Byte;   { 1 = Enabled, 2 = Disabled }
  80.                      Day_Active        : Byte;   { 0 = Mon, 1 = Tue... }
  81.                    End;
  82.  
  83.   SystemFileR    = Record                 { msg and file area records }
  84.                      MSec, FSec        : Integer;  { security }
  85.                      FDesc, MDesc,
  86.                      FilePath,
  87.                      UploadPath        : String[60];
  88.                      MNet, FNet        : Boolean;  { net flag toggles }
  89.                    End;
  90.  
  91.   Sys0Record     = Record                          { system sysop toggles }
  92.                      NumOfCallers      : real;
  93.                      SystemStartDate,
  94.                      LastDate          : String[20];
  95.                      LptrFlag,BellFlag,
  96.                      PageFlag          : Boolean;  { toggle off or on }
  97.                      Quote_Index       : Integer;
  98.                      Extra             : Array[1..20] of integer;{not used}
  99.                    End;
  100.  
  101.